home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Markets / Education / HyperCard In Education / MapStack / card_3054.txt < prev    next >
Text File  |  1990-04-02  |  9KB  |  357 lines
  1. -- card: 3054 from stack: in
  2. -- bmap block id: 2487
  3. -- flags: 0000
  4. -- background id: 2683
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0001
  11. -- rect: left=0 top=288 right=319 bottom=41
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1014 / 1014
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect wipe right slow
  23.   go previous
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 5 (field)
  29. -- low flags: 81
  30. -- high flags: 4007
  31. -- rect: left=228 top=134 right=280 bottom=512
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 3
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Drag Scroll2
  40.  
  41.  
  42. -- part 8 (button)
  43. -- low flags: 00
  44. -- high flags: 8002
  45. -- rect: left=145 top=308 right=337 bottom=318
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Show Hannibal's Path #2
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   choose  brush tool
  57.   set dragspeed to 150
  58.  
  59.   domenu "Select All"
  60.   domenu "Copy Picture"
  61.  
  62.   choose brush tool
  63.   set pattern to 12 -- set it to black
  64.   set brush to 8 -- correct brush size
  65.   global Num
  66.   repeat with Num = 1 to Number of lines in card field "Drag Scroll2"
  67.     do line num of card field "Drag Scroll2"
  68.     if the mouseclick then exit repeat
  69.   end repeat
  70.  
  71.   put "Press Mouse when satisfied"
  72.   wait until the MouseClick
  73.   hide message box
  74.   domenu "Paste Picture"
  75.  
  76.   choose browse tool
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 17 (button)
  82. -- low flags: 00
  83. -- high flags: 0000
  84. -- rect: left=199 top=213 right=260 bottom=259
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: New Button
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   play "Elephant"
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 18 (button)
  101. -- low flags: 00
  102. -- high flags: 0000
  103. -- rect: left=256 top=213 right=229 bottom=301
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: New Button
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   Play "Elephant"
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 20 (button)
  120. -- low flags: 80
  121. -- high flags: 8003
  122. -- rect: left=395 top=42 right=64 bottom=495
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: Make
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   choose select tool
  134.   domenu "Select All"
  135.   domenu "Copy Picture"
  136.  
  137.   global Num
  138.   put "At the end of the elephant sound, start to drag"
  139.   wait 5 seconds
  140.   play "Elephant"
  141.   wait until the sound is "done"
  142.   choose brush tool
  143.   set pattern to 12
  144.   set brush to 8
  145.  
  146.   put the mouseLoc into x1y1
  147.   repeat until the mouseClick
  148.     click at x1y1 -- draws trace
  149.     put the mouseLoc into x2y2
  150.     put "Drag from  " & x1y1 & "  to  " & x2y2 & return after hold
  151.     put x2y2 into x1y1
  152.   end repeat
  153.   put hold into card field "Drag Scroll2"
  154.  
  155.   put "Press mouse when satisfied"
  156.   wait until the mouseclick
  157.   domenu "Paste Picture"
  158.   choose browse tool
  159.   hide message box
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 24 (button)
  165. -- low flags: 00
  166. -- high flags: 8002
  167. -- rect: left=367 top=294 right=342 bottom=428
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 9944 / 9944
  170. -- text alignment: 1
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: Bibliography
  176. ----- HyperTalk script -----
  177. on mouseUp
  178.   push card
  179.   visual effect wipe up slow
  180.   go to card id 12060 of stack "Hannibal"
  181. end mouseUp
  182.  
  183.  
  184.  
  185. -- part 27 (button)
  186. -- low flags: 00
  187. -- high flags: A002
  188. -- rect: left=16 top=319 right=340 bottom=76
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: Return
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   global returncard
  200.   go to returncard
  201. end mouseUp
  202.  
  203.  
  204.  
  205. -- part contents for card part 5
  206. ----- text -----
  207. Drag from  1,251  to  1,251
  208. Drag from  1,251  to  1,251
  209. Drag from  1,251  to  1,251
  210. Drag from  1,251  to  1,251
  211. Drag from  1,251  to  1,251
  212. Drag from  1,251  to  2,252
  213. Drag from  2,252  to  4,252
  214. Drag from  4,252  to  8,251
  215. Drag from  8,251  to  14,250
  216. Drag from  14,250  to  19,249
  217. Drag from  19,249  to  23,248
  218. Drag from  23,248  to  27,246
  219. Drag from  27,246  to  30,244
  220. Drag from  30,244  to  31,242
  221. Drag from  31,242  to  33,241
  222. Drag from  33,241  to  38,239
  223. put ""
  224. put "The Crossing of the Rhone River"
  225. wait 2 seconds
  226. Drag from  38,239  to  41,237
  227. Drag from  41,237  to  42,234
  228. Drag from  42,234  to  43,230
  229. Drag from  43,230  to  45,226
  230. Drag from  45,226  to  45,223
  231. Drag from  45,223  to  46,217
  232. Drag from  46,217  to  47,213
  233. Drag from  47,213  to  47,209
  234. Drag from  47,209  to  48,201
  235. Drag from  48,201  to  49,198
  236. Drag from  49,198  to  55,193
  237. Drag from  55,193  to  57,192
  238. Drag from  57,192  to  60,189
  239. Drag from  60,189  to  62,185
  240. Drag from  62,185  to  65,181
  241. Drag from  65,181  to  67,177
  242. Drag from  67,177  to  67,173
  243. Drag from  67,173  to  66,171
  244. Drag from  66,171  to  63,167
  245. Drag from  63,167  to  59,167
  246. Drag from  59,167  to  57,165
  247. Drag from  57,165  to  55,163
  248. Drag from  55,163  to  53,161
  249. Drag from  53,161  to  53,159
  250. Drag from  53,159  to  53,155
  251. Drag from  53,155  to  55,153
  252. Drag from  55,153  to  57,151
  253. Drag from  57,151  to  57,150
  254. Drag from  57,150  to  56,149
  255. put ""
  256. put "The Meeting at 'The Island'"
  257. wait 2 seconds
  258. Drag from  56,149  to  54,147
  259. Drag from  54,147  to  54,146
  260. Drag from  54,146  to  52,142
  261. Drag from  52,142  to  52,139
  262. Drag from  52,139  to  51,138
  263. Drag from  51,138  to  51,133
  264. Drag from  51,133  to  51,128
  265. Drag from  51,128  to  52,123
  266. Drag from  52,123  to  52,119
  267. Drag from  52,119  to  55,114
  268. Drag from  55,114  to  57,111
  269. Drag from  57,111  to  59,108
  270. Drag from  59,108  to  64,104
  271. Drag from  64,104  to  66,101
  272. Drag from  66,101  to  73,100
  273. Drag from  73,100  to  77,100
  274. Drag from  77,100  to  82,100
  275. Drag from  82,100  to  86,100
  276. Drag from  86,100  to  90,100
  277. Drag from  90,100  to  92,100
  278. Drag from  92,100  to  96,100
  279. Drag from  96,100  to  100,100
  280. Drag from  100,100  to  106,101
  281. Drag from  106,101  to  108,102
  282. Drag from  108,102  to  115,104
  283. Drag from  115,104  to  117,105
  284. Drag from  117,105  to  119,107
  285. Drag from  119,107  to  122,111
  286. Drag from  122,111  to  125,113
  287. Drag from  125,113  to  129,115
  288. Drag from  129,115  to  132,115
  289. put ""
  290. put "The First Battle"
  291. wait 2 seconds
  292. Drag from  132,115  to  137,115
  293. Drag from  137,115  to  139,115
  294. Drag from  139,115  to  143,115
  295. Drag from  143,115  to  148,115
  296. Drag from  148,115  to  151,116
  297. Drag from  151,116  to  155,118
  298. Drag from  155,118  to  158,122
  299. Drag from  158,122  to  163,126
  300. Drag from  163,126  to  167,129
  301. Drag from  167,129  to  168,131
  302. Drag from  168,131  to  168,132
  303. Drag from  168,132  to  178,139
  304. Drag from  178,139  to  180,139
  305. Drag from  180,139  to  181,140
  306. Drag from  181,140  to  185,140
  307. Drag from  185,140  to  189,139
  308. Drag from  189,139  to  196,138
  309. Drag from  196,138  to  200,138
  310. Drag from  200,138  to  205,135
  311. Drag from  205,135  to  209,134
  312. Drag from  209,134  to  212,134
  313. Drag from  212,134  to  216,134
  314. Drag from  216,134  to  221,134
  315. Drag from  221,134  to  226,134
  316. Drag from  226,134  to  231,134
  317. put ""
  318. put "The Second Battle"
  319. wait 2 seconds
  320. Drag from  231,134  to  241,134
  321. Drag from  241,134  to  243,134
  322. Drag from  243,134  to  250,132
  323. Drag from  250,132  to  259,132
  324. Drag from  259,132  to  263,132
  325. Drag from  263,132  to  270,131
  326. Drag from  270,131  to  274,129
  327. Drag from  274,129  to  277,127
  328. Drag from  277,127  to  282,124
  329. Drag from  282,124  to  285,122
  330. Drag from  285,122  to  291,119
  331. Drag from  291,119  to  292,118
  332. Drag from  292,118  to  299,114
  333. Drag from  299,114  to  301,113
  334. Drag from  301,113  to  303,112
  335. put ""
  336. put "The Pass through the Summit"
  337. wait 2 seconds
  338. Drag from  303,112  to  307,111
  339. Drag from  307,111  to  311,110
  340. Drag from  311,110  to  319,108
  341. Drag from  319,108  to  323,107
  342. Drag from  323,107  to  330,104
  343. Drag from  330,104  to  333,102
  344. Drag from  333,102  to  335,100
  345. Drag from  335,100  to  338,96
  346. Drag from  338,96  to  342,91
  347. Drag from  342,91  to  342,88
  348. Drag from  342,88  to  341,82
  349. Drag from  341,82  to  336,79
  350. Drag from  336,79  to  332,73
  351. Drag from  332,73  to  332,70
  352. Drag from  332,70  to  330,69
  353. Drag from  330,69  to  328,68
  354. put ""
  355. put "The End of the Crossing of the Alps"
  356. wait 4 seconds
  357.